gusucode.com > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT) > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT)\9)ASP 在线手机销售系统\HandsetPro\handset\admin\memberList.asp
<!-- #include file = "include/sysbase.asp" --> <!-- #include file = "../include/config.asp" --> <% dim rsObj,strSQL dim page, myKeyword, thisUrl, i, bShowAdd myKeyword = Request.Form("myKeyword") page = Request.QueryString("page") if (page = "" or IsEmpty(page)) then page = 1 thisUrl = "memberList.asp?myKeyword=" & myKeyword Session("adminOldUrl") = thisUrl&"&page = "&page set rsObj = Server.CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM Member WHERE 1 = 1" if not (myKeyword = "" or IsEmpty(myKeyword) ) then strSQL = strSQL &" AND Name like '%" & myKeyword & "%'" end if strSQL = strSQL & " ORDER by Memberid" 'Response.Write strSQL 'Response.End rsObj.Open strSQL, conn, adOpenKeyset, adLockReadOnly rsObj.pagesize = conMaxPerPage %> <html> <head> <title>会员管理</title> <meta http-equiv = "Content-Type" content = "text/html; charset = gb2312"> <link rel = "stylesheet" href = "include/main.css" type = "text/css"> <script language = Javascript> <!-- function deleteMe(i){ if (confirm("确定删除?无法恢复。") == 1){ window.location = "memDel.asp?memberID=" + i; } } //--> </script> </head> <body text = "#000000" leftmargin = "0" topmargin = "0"> <div align = "center"><br> 会员管理 </div> <table width = "98%" border = "1" bordercolordark = #9CC7EF bordercolorlight = #145AA0 cellspacing = "0" cellpadding = "4" align = "center"> <tr> <form method = "post" action = "memberList.asp" name = "form1"> <td colspan = "7" bgcolor = "#4296E7"> <div align = "right"><font color = "#FFFFFF">会名姓名(模糊查询):</font> <input type = "text" name = "myKeyword" size = "16" value = "<%=myKeyword%>"> <input type = "submit" name = "Submit" value = "搜索"> </div> </td> </form> </tr> <tr bgcolor = "#5EA5E6"> <td width = "15%" nowrap> <div align = "center"><font color = "#FFFFFF"> 会员帐号</font></div> </td> <td width = "17%" nowrap> <div align = "center"><font color = "#FFFFFF">会员姓名</font></div> </td> <td width = "6%" nowrap> <div align = "center"><font color = "#FFFFFF">性别</font></div> </td> <td width = "23%" nowrap> <div align = "center"><font color = "#FFFFFF">EMAIL</font></div> </td> <td nowrap> <div align = "center"><font color = "#FFFFFF">电话</font></div> </td> <td width = "13%" nowrap> <div align = "center"><font color = "#FFFFFF">邮政编码</font></div> </td> <td width = "9%" nowrap> <div align = "center"><font color = "#FFFFFF">删除</font></div> </td> </tr> <% dim rsID i = 1 if not (rsObj.eof or err) then rsObj.move (page-1)*conMaxPerPage do while not (rsObj.eof or err) rsID = rsObj("memberID") %> <tr title = "点击查看具体信息" style = "cursor:hand" onClick = "Javascript:window.location = 'memModify.asp?Memberid=<%=rsObj("memberID")%>'"> <td width = "15%"><%=rsObj("memberID")%> </td> <td width = "17%"><%=rsObj("name")%> </td> <td width = "6%"><%=rsObj("sex")%> </td> <td width = "23%"><%=rsObj("email")%> </td> <td > <%=rsObj("phone")%> </td> <td width = "13%"><%=rsObj("Zipcode")%> </td> <td align=center ><a href="javascript:deleteMe('<%=rsObj("MemberID")%>')">删除</a></td> </tr> <% i = i+1 if i>conMaxPerPage then exit do rsObj.MoveNext loop %> <tr bgcolor = "#4296E7"> <td colspan = "7"> <% bShowAdd = False %> <!-- #include file = "include/pageguide.asp"--> <% rsObj.Close() set rsObj = Nothing CloseConn() %> </td> </tr> </table> </body> </html>